(smtpmail-via-smtp): Parse out the first word

on extension lines.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 8bbb98edd8620224707ecee3040bd2e8eb862bd8..6e567148b1a669fe58c285a8fd584fcb7434b191 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -350,7 +350,7 @@ This is relative to `smtpmail-queue-dir'.")
                      (throw 'done nil)))
              (let ((extension-lines (cdr (cdr response-code))))
                (while extension-lines
-                 (let ((name (intern (downcase (substring (car extension-lines) 4)))))
+                 (let ((name (intern (downcase (car (split-string (substring (car extension-lines) 4) "[ ]"))))))
                    (and name
                         (cond ((memq name '(verb xvrb 8bitmime onex xone
                                                  expn size dsn etrn